home *** CD-ROM | disk | FTP | other *** search
/ Art Fundamentals - Core Concepts in Art / Art Fundamentals: Core Concepts in Art.iso / pc / color.dxr / 00216.ls < prev    next >
Encoding:
Text File  |  2001-07-16  |  894 b   |  32 lines
  1. on mouseDown me
  2.   repeat while the mouseDown
  3.     if the locV of sprite 40 = 190 then
  4.       sprite(40).color = rgb(128, 128, 128)
  5.       set the blend of sprite 40 to 100
  6.     else
  7.       if the locV of sprite 40 < 190 then
  8.         set the blend of sprite 40 to 100
  9.         redr = ((55 + (135 - the locV of sprite 40)) * 1.88900000000000001) + 128
  10.         redg = redr
  11.         redb = redg
  12.         sprite(40).color = rgb(redr, redg, redb)
  13.       else
  14.         set the blend of sprite 40 to (191 + (135 - the locV of sprite 40)) * 0.74099999999999999
  15.       end if
  16.     end if
  17.     set the locV of sprite 40 to the mouseV
  18.     set the locV of sprite 59 to the mouseV
  19.     if the blend of sprite 40 < 10 then
  20.       showit(59, 59)
  21.     else
  22.       hideit(59, 59)
  23.     end if
  24.     updateStage()
  25.   end repeat
  26. end
  27.  
  28. on mouseUp me
  29.   set the locV of sprite 40 to the mouseV
  30.   set the locV of sprite 59 to the mouseV
  31. end
  32.